home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGNG_C / CSUBR.LZH / R_JUST.C < prev    next >
C/C++ Source or Header  |  1985-12-13  |  886b  |  33 lines
  1.  
  2. /***********************************************************************/
  3. /*                                                                     */
  4. /*    Right justify string str in size length field.                     */
  5. /*                                                                     */
  6. /***********************************************************************/
  7.  
  8. int r_just(str, size)
  9. char *str;
  10. int size;
  11. {
  12.     char *s, *d;
  13.     int len, count;
  14.  
  15.     len = strlen(str);                /* get string length */
  16.  
  17.     if (len > size)                    /* truncate, if necessary */
  18.         str[size] = 0x00;
  19.     else if (len < size) {
  20.         d = str + size;                /* copy to leave room */
  21.         s = str + len;
  22.         count = len + 1;
  23.         while (count--)
  24.             *d-- = *s--;
  25.         count = size - len;            /* number of blanks to insert */
  26.         s = str;
  27.         while (count--)
  28.             *s++ = ' ';                /* add leading blanks */
  29.     }
  30.  
  31.     return str;
  32. }
  33.